home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / pgm_ctrl / cuactrls / cgrid.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-22  |  2.1 KB  |  73 lines
  1. VERSION 2.00
  2. Begin Form frmGrid 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Grid Demo"
  6.    ClientHeight    =   2805
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1485
  9.    ClientWidth     =   5370
  10.    Height          =   3210
  11.    Left            =   1035
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   2805
  16.    ScaleWidth      =   5370
  17.    Top             =   1140
  18.    Width           =   5490
  19.    Begin Data Data1 
  20.       Caption         =   "CUACTLS.MDB"
  21.       Connect         =   ""
  22.       DatabaseName    =   "C:\BP\CUACTLS\CUACTLS.MDB"
  23.       Exclusive       =   0   'False
  24.       Height          =   270
  25.       Left            =   150
  26.       Options         =   0
  27.       ReadOnly        =   0   'False
  28.       RecordSource    =   "Test"
  29.       Top             =   90
  30.       Width           =   2670
  31.    End
  32.    Begin CUACommand cmdOK 
  33.       Caption         =   "OK"
  34.       Default         =   -1  'True
  35.       Height          =   345
  36.       Left            =   3915
  37.       StandardButton  =   1  'OK
  38.       TabIndex        =   1
  39.       Top             =   90
  40.       Width           =   1275
  41.    End
  42.    Begin CUAGrid Grid1 
  43.       BorderStyle     =   0  'None
  44.       Cols            =   6
  45.       DataSource      =   "Data1"
  46.       GridLines       =   0   'False
  47.       GridLineWidth   =   0
  48.       Height          =   2025
  49.       HighLight       =   0   'False
  50.       Left            =   135
  51.       Rows            =   2
  52.       ScrollBars      =   3  'Both
  53.       TabIndex        =   0
  54.       Top             =   630
  55.       Width           =   5040
  56.    End
  57.    Begin CUALabel lbl1 
  58.       Caption         =   "lbl1"
  59.       Height          =   195
  60.       Left            =   3270
  61.       TabIndex        =   2
  62.       Top             =   315
  63.       Visible         =   0   'False
  64.       Width           =   315
  65.    End
  66. Option Explicit
  67. Sub cmdOK_Click ()
  68.    Unload Me
  69. End Sub
  70. Sub Form_Load ()
  71.    Data1.DatabaseName = DatabaseName
  72. End Sub
  73.